Index: doc/example-scripts/rosetta-serialization.tcl
===================================================================
diff -u -r21a0283e3b67fb56e9dc782b628db602e21c9ac7 -r1617c4f080e984ae2725d8337f994d5e5fa3d4cc
--- doc/example-scripts/rosetta-serialization.tcl	(.../rosetta-serialization.tcl)	(revision 21a0283e3b67fb56e9dc782b628db602e21c9ac7)
+++ doc/example-scripts/rosetta-serialization.tcl	(.../rosetta-serialization.tcl)	(revision 1617c4f080e984ae2725d8337f994d5e5fa3d4cc)
@@ -4,6 +4,7 @@
 #
 package req nx
 package req nx::test
+proc ! args {uplevel {*}$args}
 package req nx::serializer
 
 nx::Class create Being {
@@ -32,7 +33,7 @@
 #    +i am Fido alive true+ 
 #
 # Serialize the animals to a file
-set f [open /tmp/dump w]
+! {set f [open /tmp/dump w]}
 ? {foreach i [Animal info instances] { puts $f [$i serialize] }} ""
 ? {close $f} ""