*** tclreadlineCompleter.tcl.orig	Mon Jul 15 01:59:12 2002
--- tclreadlineCompleter.tcl	Mon Jul 15 02:02:21 2002
***************
*** 625,631 ****
  			}
  		}
  	}
! 	if {![catch [list set type [image type ${cmd}]]]} {
  		switch -- ${type} {
  			photo {
  				set result [PhotoObj ${text} ${start} ${end} ${line} ${pos}]
--- 625,631 ----
  			}
  		}
  	}
! 	if {![catch {image type ${cmd}} type]} {
  		switch -- ${type} {
  			photo {
  				set result [PhotoObj ${text} ${start} ${end} ${line} ${pos}]
***************
*** 1460,1466 ****
  			# this can raise an error, if alias is
  			# no valid command.
  			#
! 			if {[catch [list set alias [namespace origin $alias]]]} {
  				return ""
  			}
  
--- 1460,1466 ----
  			# this can raise an error, if alias is
  			# no valid command.
  			#
! 			if {[catch {set alias [namespace origin $alias]}]} {
  				return ""
  			}