Index: toy-lisp.imc
===================================================================
RCS file: /shared/cvsroot/parrot-cl/toy-lisp.imc,v
retrieving revision 1.68
diff -u -r1.68 toy-lisp.imc
--- toy-lisp.imc	28 Dec 2005 15:56:15 -0000	1.68
+++ toy-lisp.imc	18 Jan 2006 02:54:08 -0000
@@ -1532,7 +1532,7 @@
 	.local pmc user_package
 	user_package = find_global "ParrotCL::Common_Lisp", "user_package"
 	current_package_sym."_set_symbol_value"(user_package)
-	push_eh main_exception
+	## push_eh main_exception
 main_read_loop:
 	print "* "
 	result = read(stdin, nil, eof_marker)