 : test-image ( -- str )
     my-arch-name "test." ".image" surround ;
 
+: test-image-path ( -- str )
+    test-image temp-file ;
+
 : shake-and-bake ( vocab -- )
-    [ test-image temp-file delete-file ] ignore-errors
+    [ test-image-path delete-file ] ignore-errors
     [
         [ vm-path test-image temp-file ] dip
         dup deploy-config make-deploy-image drop

: deploy-test-command ( -- args )
    os macosx?
    "resource:Factor.app/Contents/MacOS/factor" normalize-path vm-path ?
    "-i=" test-image temp-file append 2array ;

: run-temp-image ( -- )
    deploy-test-command try-output-process ;

ERROR: image-too-big actual-size max-size ;

: small-enough? ( n -- )
    [ test-image-path file-info size>> ]
    [
        cell 4 / *
        cpu ppc? [ 100000 + ] when
