@@ -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}]]]} {