diff --git a/image/retro.forth b/image/retro.forth
index e9c3ef8..3980e60 100644
--- a/image/retro.forth
+++ b/image/retro.forth
@@ -1483,10 +1483,10 @@ we wrap this as `a:length`:
 
 ~~~
 'a:Accessors d:create
-  #0 , (fetch)
-  #0 , (store)
-  #0 , (fetch-next)
-  #0 , (store-next)
+  &fetch      , (fetch)
+  &store      , (store)
+  &fetch-next , (fetch-next)
+  &store-next , (store-next)
 
 :a:(fetch) &a:Accessors #0 + fetch call ;
 :a:(store) &a:Accessors #1 + fetch call ;
diff --git a/ngaImage b/ngaImage
index 6fc5b32..97b4b3f 100644
Binary files a/ngaImage and b/ngaImage differ
diff --git a/vm/nga-c/image.c b/vm/nga-c/image.c
index 3ca26b1..6caa24a 100644
--- a/vm/nga-c/image.c
+++ b/vm/nga-c/image.c
@@ -442,7 +442,7 @@ CELL ngaImage[] = { 1793,16778,17073,17116,202111,405,377,1150,1535,0,10,1,10,2,
                        112,45,120,116,0,1,0,4,1793,8589,2049,2181,2049,180,2831,1793,8582,4,1,2139,
                        2049,2192,10,1,8576,1,15,2049,64,10,1,8569,2049,8517,3,10,8548,8608,166,15297,
                        97,58,108,101,110,103,116,104,0,15,10,8595,8626,154,0,97,58,65,99,99,
-                       101,115,115,111,114,115,0,0,0,0,0,8610,8644,166,0,97,58,40,102,101,
+                       101,115,115,111,114,115,0,35,37,56,59,8610,8644,166,0,97,58,40,102,101,
                        116,99,104,41,0,1,8626,1,0,17,15,8,10,8630,8666,166,0,97,58,40,
                        115,116,111,114,101,41,0,1,8626,1,1,17,15,8,10,8652,8693,166,0,97,
                        58,40,102,101,116,99,104,45,110,101,120,116,41,0,1,8626,1,2,17,15,