--- a/ExternalAddress.st	Mon Dec 07 16:57:59 2009 +0100
+++ b/ExternalAddress.st	Mon Dec 07 16:58:16 2009 +0100
@@ -251,6 +251,10 @@
     "
       (ExternalAddress newAddress:16r12345678) asExternalBytes
     "
+!
+
+copyCStringFromHeap
+    ^ self asExternalBytes copyCStringFromHeap
 ! !
 
 !ExternalAddress methodsFor:'printing & storing'!
@@ -302,9 +306,9 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.23 2009-11-05 14:37:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.24 2009-12-07 15:58:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.23 2009-11-05 14:37:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.24 2009-12-07 15:58:16 cg Exp $'
 ! !