diff -r c95484b7da49 -r 1a8b9416db6e UIPainter.st
--- a/UIPainter.st	Fri Feb 10 16:19:25 2006 +0100
+++ b/UIPainter.st	Fri Feb 10 16:56:33 2006 +0100
@@ -2956,17 +2956,18 @@
 
         specAndView := self selectedSpecAndView.
         spec := specAndView first.
-
-        usefulReplacementSpecClasses := spec usefulReplacementSpecClasses.
-        usefulReplacementSpecClasses notEmptyOrNil ifTrue:[
-            m addSeparator.
-            usefulReplacementSpecClasses do:[:eachClass |      
-                |item|
-
-                item := MenuItem new label:(resources string:'Replace by %1' with:eachClass userFriendlyName).
-                item value:#replaceWidgetByClass:.
-                item argument:eachClass.
-                m addItem:item.
+        spec notNil ifTrue:[
+            usefulReplacementSpecClasses := spec usefulReplacementSpecClasses.
+            usefulReplacementSpecClasses notEmptyOrNil ifTrue:[
+                m addSeparator.
+                usefulReplacementSpecClasses do:[:eachClass |      
+                    |item|
+
+                    item := MenuItem new label:(resources string:'Replace by %1' with:eachClass userFriendlyName).
+                    item value:#replaceWidgetByClass:.
+                    item argument:eachClass.
+                    m addItem:item.
+                ].
             ].
         ].