--- a/Form.st	Tue Sep 05 22:53:23 2000 +0200
+++ b/Form.st	Wed Sep 06 15:47:34 2000 +0200
@@ -1577,7 +1577,7 @@
 !
 
 recreate
-    "reconstruct the form after a snapin"
+    "reconstruct the form after a snapin or a migration"
 
     device isNil ifTrue:[^ self].
 
@@ -2049,6 +2049,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.111 2000-03-30 15:24:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.112 2000-09-06 13:47:34 cg Exp $'
 ! !
 Form initialize!