--- a/Tools__NewSystemBrowser.st	Mon Feb 13 16:54:07 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Feb 13 17:46:57 2012 +0100
@@ -7708,6 +7708,7 @@
                   translateLabel: true
                   isVisible: false
                 )
+
                )
               nil
               nil
@@ -7988,6 +7989,8 @@
         nil
         nil
       )
+
+    "Modified: / 13-02-2012 / 17:46:10 / cg"
 !
 
 classNewHaskellClassSlice
@@ -39604,27 +39607,28 @@
         ].
     ].
 
-    newClassName := Dialog
-                    request:(resources string:reqString) withCRs
-                    initialAnswer:(initial ? '')
-                    okLabel:(resources string:okLabel)
-                    title:(resources string:title)
-                    onCancel:nil
-                    list:list               
-                    entryCompletionBlock:(DoWhatIMeanSupport classNameEntryCompletionBlock).
-
-    newClassName isNil ifTrue:[^ nil].
-    (newClassName startsWith:'---- ') ifTrue:[^ nil].
-
-    newClass := self classIfValidNonMetaClassName:newClassName.
-    newClass isNil ifTrue:[
-        ^ nil
-    ].
-
-    LastMethodMoveOrCopyTargetClass := newClass theNonMetaclass name.
-    ^ newClass.
-
-    "Modified: / 22.12.2001 / 03:04:48 / cg"
+    [
+        newClassName := Dialog
+                        request:(resources string:reqString) withCRs
+                        initialAnswer:(initial ? '')
+                        okLabel:(resources string:okLabel)
+                        title:(resources string:title)
+                        onCancel:nil
+                        list:list               
+                        entryCompletionBlock:(DoWhatIMeanSupport classNameEntryCompletionBlock).
+
+        newClassName isNil ifTrue:[^ nil].
+        (newClassName startsWith:'---- ') ifTrue:[^ nil].
+
+        newClass := self classIfValidNonMetaClassName:newClassName.
+        newClass notNil ifTrue:[
+            LastMethodMoveOrCopyTargetClass := newClass theNonMetaclass name.
+            ^ newClass.
+        ].
+        initial := newClassName.
+    ] loop
+
+    "Modified: / 13-02-2012 / 17:43:10 / cg"
 !
 
 copyMethods:methods toClass:newClass
@@ -55783,11 +55787,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1710 2012-02-13 13:51:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1711 2012-02-13 16:46:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1710 2012-02-13 13:51:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1711 2012-02-13 16:46:57 cg Exp $'
 !
 
 version_SVN