Better adjust.m

git-svn-id: https://forth-ev.de/repos/bigforth@1641 3b8d8251-53f3-0310-8f3b-fd1cb8370982

adjust-path.fs

@@ -11,7 +11,7 @@ DOS also fileop also minos also
          scratch over 5 min s" Path " compare 0=
          IF    drop .' Path "'
                pathsep emit 2over type  '" emit
-         ELSE  scratch over 10 /string 7 min s" date-id" compare
+         ELSE  scratch over dup 7 - /string s" date-id" compare
                0= IF  drop >r >r
                       .'   s" ' 2over type .' " date-id'
                       r> r>

adjust.m

@@ -22,7 +22,7 @@ adjust implements
   dpy self window with  xywh resize
       xywh  2swap 2drop p2/ p-
       repos endwith
-  argc @ 3 = IF  2 arg id# assign
+  argc @ 3 = 1 arg s" adjust.m" str= and IF  2 arg id# assign
     id# get path# get s" xbigforth.ini" adjust-path-id
     id# get path# get  s" bigforth.ini" adjust-path-id
     close bye