--- a/UIPropertyView.st	Wed Mar 05 08:25:36 1997 +0100
+++ b/UIPropertyView.st	Thu Mar 06 15:56:42 1997 +0100
@@ -1250,7 +1250,7 @@
     ].
 
     propertyAspects := IdentityDictionary new.
-    slices          := currentView specClass slices.
+    slices          := specBeingEdited class slices.
 
     list := slices collect:[:slice|
         slice first asString
@@ -1285,19 +1285,21 @@
 propertySelectionChanged
     "property selection changed; switch to new property selection
     "
-    |plist|
+    |plist specClass|
 
     self modified:false.
-    plist := self propertyList.
+
+    specClass := specBeingEdited class.
+    plist     := self propertyList.
 
     (plist selection isNil) ifTrue:[
         ^ self showSpec:nil
     ].
     propertySelection := plist selection.
 
-    currentView specClass slices do:[:slice|
+    specClass slices do:[:slice|
         slice first = propertySelection ifTrue:[
-            ^ self showSpec:(currentView specClass perform:(slice last))
+            ^ self showSpec:(specClass perform:(slice last))
         ]
     ].
     ^ self showAndFetchLayout   "/ layout specifications