Get some cfdg models to compile

extra/cfdg/models/aqua-star/aqua-star.factor

@@ -6,12 +6,13 @@ IN: cfdg.models.aqua-star
 
 : tentacle ( -- )
 iterate? [
-  { [ circle
-      [ .23 y .99 s .002 b tentacle ] do ]
-    [ circle
-      [ .17 y 2 r .99 s .002 b tentacle ] do ]
-    [ circle
-      [ .12 y -2 r .99 s .001 b tentacle ] do ] } random call
+  { { 1 [ circle
+          [ .23 y .99 s .002 b tentacle ] do ] }
+    { 1 [ circle
+      	  [ .17 y 2 r .99 s .002 b tentacle ] do ] }
+    { 1 [ circle
+      	  [ .12 y -2 r .99 s .001 b tentacle ] do ] } }
+  call-random-weighted
 ] when ;
 
 : anemone ( -- )

extra/cfdg/models/game1-turn6/game1-turn6.factor

@@ -1,5 +1,4 @@
 
-
 USING: kernel namespaces math opengl.gl opengl.glu ui ui.gadgets.slate
        mortar random-weighted cfdg ;
 
@@ -28,7 +27,7 @@ DEFER: start
       	  [ 0.5 x 0.5 y 45 r f-triangles ] do
 	  [ 1 y 25 r 0.9 s spiral ] do ] }
     { 0.022 [ [ 90 flip 50 hue start ] do ] } }
-random-weighted* call
+  call-random-weighted
 ] when ;
 
 : start ( -- )

extra/cfdg/models/snowflake/snowflake.factor

@@ -11,8 +11,8 @@ iterate? [
     { 0.03 [ square
       	     [ 60 r spike ] do
 	     [ -60 r spike ] do
-	     [ 0.95 y 0.97 s spike ] do ] }
-  } random-weighted* call
+	     [ 0.95 y 0.97 s spike ] do ] } }
+  call-random-weighted
 ] when ;
 
 : snowflake ( -- )