--- a/UIPainter.st	Wed Sep 05 20:24:52 2012 +0200
+++ b/UIPainter.st	Wed Sep 05 20:30:07 2012 +0200
@@ -4934,7 +4934,11 @@
     selectedSpec isNil ifTrue:[^ self].
 
     list :=  UISpecification allSubclasses
-                select:[:cls | Error handle:[ false ] do:[ cls viewClass notNil]].
+                select:[:cls | 
+                    [ cls viewClass notNil]
+                        on: NotFoundError
+                        do:[ false ]
+                ].
     list sort:[:a :b | a name < b name].
 
     common := selectedSpec class commonReplacementClasses.
@@ -4951,7 +4955,7 @@
     ].
     self replaceWidgetByClass:widgetClass
 
-    "Modified: / 12-01-2008 / 23:50:25 / cg"
+    "Modified: / 05-09-2012 / 19:31:22 / cg"
 !
 
 doBrowseActionMethod:aspectSelector
@@ -5802,17 +5806,18 @@
 !
 
 replaceWidgetByClass:aSpecOrWidgetClass
-    |specClass oldSpec newSpec painter|
+    |newSpecClass oldSpec newSpec|
 
     (aSpecOrWidgetClass isSubclassOf:UISpecification) ifTrue:[
-        specClass := aSpecOrWidgetClass.
+        newSpecClass := aSpecOrWidgetClass.
     ] ifFalse:[
         (aSpecOrWidgetClass isSubclassOf:View) ifTrue:[
-            specClass := aSpecOrWidgetClass basicNew specClass.
+            newSpecClass := aSpecOrWidgetClass basicNew specClass.
         ] ifFalse:[
+            newSpecClass := nil
         ].
     ].
-    specClass isNil ifTrue:[
+    newSpecClass isNil ifTrue:[
         Dialog warn:'Invalid Spec- or View-Class: ' , aSpecOrWidgetClass name.
         ^ self.
     ].
@@ -5821,10 +5826,11 @@
         ^ self
     ].
     oldSpec := self selectedSpec.
-    newSpec := specClass cloneFrom:oldSpec.
-
-    painter := self painter.
-    painter replaceSelectionBy:newSpec.
+    newSpec := newSpecClass cloneFrom:oldSpec.
+
+    self painter replaceSelectionBy:newSpec.
+
+    "Modified: / 05-09-2012 / 19:24:40 / cg"
 !
 
 useBackgroundImage