--- gforth/Attic/special.fs	1996/08/26 10:07:21	1.3
+++ gforth/Attic/special.fs	1997/02/24 22:29:00	1.4
@@ -31,9 +31,6 @@ interpret/compile: S" ( compilation 'ccc
 :noname    ' >body postpone ALiteral postpone ! ;
 interpret/compile: IS ( addr "name" -- ) \ gforth
 
-' IS Alias TO ( addr "name" -- ) \ core-ext
-immediate
-
 :noname    ' >body @ ;
 :noname    ' >body postpone ALiteral postpone @ ;
 interpret/compile: What's ( "name" -- addr ) \ gforth
@@ -45,11 +42,14 @@ interpret/compile: ." ( compilation 'ccc
 \ DOES>                                                17mar93py
 
 :noname
-    align dodoes, here !does ]
+    dodoes, here !does ]
     defstart :-hook ;
 :noname
     ;-hook postpone (does>) ?struc dodoes,
     defstart :-hook ;
 interpret/compile: DOES>  ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core	does
     
+' IS Alias TO ( addr "name" -- ) \ core-ext
+immediate
+