Index: safe.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/safe.tcl,v
retrieving revision 1.37
diff -u -r1.37 safe.tcl
--- safe.tcl	30 Dec 2009 22:26:43 -0000	1.37
+++ safe.tcl	19 May 2010 17:07:13 -0000
@@ -771,6 +771,8 @@
     } on error msg {
 	Log $slave $msg
 	return -code error "script error"
+    } on ok msg {
+	# we set msg here
     }
 
     Log $slave "GLOB @ $msg" NOTICE

