Tools__NewSystemBrowser.st
changeset 16906 94fedabe70ec
parent 16905 473a7c613d14
child 16907 95801fc90d84
--- a/Tools__NewSystemBrowser.st	Wed Oct 05 18:29:10 2016 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Oct 05 18:30:40 2016 +0200
@@ -34028,11 +34028,12 @@
         "/ therefore, we setup a multiple pattern search here (sigh)
         patternsForCodeSearch := OrderedCollection new.
         aCollectionOfClasses do:[:each |
-            |nm nm2 nm3|
-
-            nm := each theNonMetaclass name.
-            nm2 := each theNonMetaclass nameWithoutPrefix.
-            nm3 := each theNonMetaclass nameWithoutNameSpacePrefix.
+            |nonMeta nm nm2 nm3|
+
+            nonMeta := each theNonMetaclass.    
+            nm := nonMeta name.
+            nm2 := nonMeta nameWithoutPrefix.
+            nm3 := nonMeta nameWithoutNameSpacePrefix.
             patternsForCodeSearch add:nm.
             nm2 ~= nm ifTrue:[ patternsForCodeSearch add:nm2 ].
             nm3 ~= nm ifTrue:[ patternsForCodeSearch add:nm3 ].