--- a/AspectAdaptor.st	Tue Feb 20 13:10:31 2007 +0100
+++ b/AspectAdaptor.st	Wed Feb 21 13:07:21 2007 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libview2' }"
 
 ProtocolAdaptor subclass:#AspectAdaptor
 	instanceVariableNames:'myAspect getMsg putMsg'
@@ -231,6 +232,8 @@
     |target oldValue|
 
     target := super value.
+    target isNil ifTrue:[^ nil].
+
     oldValue := target perform:getMsg.
     oldValue ~~ newValue ifTrue:[
         target perform:putMsg with:newValue.
@@ -257,6 +260,8 @@
     |target oldValue|
 
     target := super value.
+    target isNil ifTrue:[^ nil].
+
     oldValue := target perform:getMsg.
     oldValue ~~ newValue ifTrue:[
         target perform:putMsg with:newValue.
@@ -283,5 +288,5 @@
 !AspectAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/AspectAdaptor.st,v 1.20 1998-01-29 14:46:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/AspectAdaptor.st,v 1.21 2007-02-21 12:07:21 ca Exp $'
 ! !