--- a/testc.rhope	Wed May 27 04:49:32 2009 -0400
+++ b/testc.rhope	Wed May 27 21:29:15 2009 +0000
@@ -2,7 +2,8 @@
 
 Main[]
 {
-	base <- [[[[[[C Function["Fib",("n"),("out"),""]
+	prog <- C Program[]
+	base <- [[[[[[[prog]Create Function["Fib",("n"),("out"),""]
 		]Allocate Var["work1", "Any Type"]
 		]Allocate Var["work2", "Any Type"]
 		]Null["out"]
@@ -38,13 +39,8 @@
 		]Do If[Result[1], stream2]
 		]Release["n"]
 	{Print["func done"] }
+
+	Print[[[prog]Store Function[func]]Text]
 		
-	Print[[func]Definitions]
-	{
-	Print[[func]Text] }
 }
 
-Foo[]
-{
-}
-