--- a/ExternalStructure.st	Tue Apr 05 20:51:17 2016 +0200
+++ b/ExternalStructure.st	Wed Apr 06 15:06:09 2016 +0200
@@ -157,6 +157,12 @@
         size:(anExternalAddressOrExternalStructure size).
 ! !
 
+!ExternalStructure methodsFor:'testing'!
+
+isExternalStructure
+    ^ true
+! !
+
 !ExternalStructure class methodsFor:'documentation'!
 
 version