Index: configure.in
==================================================================
--- configure.in
+++ configure.in
@@ -1,8 +1,8 @@
 # -*- autoconf -*-
 # FILE: "/home/joze/src/tclreadline/configure.in"
-# LAST MODIFICATION: "Tue Sep 21 21:12:23 1999 (joze)"
+# LAST MODIFICATION: "Mon Sep 27 00:09:59 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -36,11 +36,11 @@
 AC_INIT(tclreadline.c)
 AC_CONFIG_HEADER(config.h)
 
 TCLREADLINE_MAJOR_VERSION=1
 TCLREADLINE_MINOR_VERSION=0
-TCLREADLINE_PATCHLEVEL=1
+TCLREADLINE_PATCHLEVEL=2
 TCLREADLINE_VERSION=$TCLREADLINE_MAJOR_VERSION.$TCLREADLINE_MINOR_VERSION
 TCLREADLINE_PATCHLEVEL_STR=${TCLREADLINE_VERSION}.${TCLREADLINE_PATCHLEVEL}
 VERSION=$TCLREADLINE_VERSION
 
 

Index: tclreadlineCompleter.tcl
==================================================================
--- tclreadlineCompleter.tcl
+++ tclreadlineCompleter.tcl
@@ -1,8 +1,8 @@
 # -*- tclsh -*-
 # FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
-# LAST MODIFICATION: "Thu Sep 23 02:16:55 1999 (joze)"
+# LAST MODIFICATION: "Mon Sep 27 00:09:06 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -616,10 +616,12 @@
 		# it's a widget. Try to get it's class name.
 		#
 		if {![catch [list set class [winfo class [Lindex ${line} 0]]]]} {
 			if {[string length [info proc ${class}Obj]]} {
 				set result [${class}Obj ${text} ${start} ${end} ${line} ${pos}]
+				return 1
+			} else {
 				return 0
 			}
 		}
 	}
 	if {![catch [list set type [image type ${cmd}]]]} {