--- a/WindowGroup.st	Tue Feb 15 18:25:53 2005 +0100
+++ b/WindowGroup.st	Wed Feb 16 15:32:42 2005 +0100
@@ -2427,7 +2427,8 @@
     self isModal ifTrue:[
         "/ cannot migrate a modal box away from its owner ...
         "/ (need a separate process and views may not be owned)
-        self error:'Modal windogroup cannot be migrated.'.
+        Transcript showCR:'Modal windogroup cannot be migrated.'.
+        "/ self error:'Modal windogroup cannot be migrated.'.
         ^ self
     ].
 
@@ -2761,7 +2762,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.272 2005-01-25 08:08:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.273 2005-02-16 14:32:42 cg Exp $'
 ! !
 
 WindowGroup initialize!