*** 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 ""

  			}