--- a/ExtBytes.st	Thu Mar 05 21:55:09 1998 +0100
+++ b/ExtBytes.st	Thu Mar 05 22:40:07 1998 +0100
@@ -489,6 +489,9 @@
 #endif
     }
 %}
+    "
+     self dumpMallocChunks
+    "
 !
 
 freeAllMallocChunks
@@ -542,12 +545,18 @@
 %{  /* NOCONTEXT */
     RETURN ( __MKSMALLINT(mallocCount) );
 %}
+    "
+     self numberOfAllocatedChunks
+    "
 !
 
 mallocStatistics
 %{
     __stx_mallocStatistics();
 %}
+    "
+     self mallocStatistics
+    "
 ! !
 
 !ExternalBytes class methodsFor:'private instance creation/release'!
@@ -928,6 +937,6 @@
 !ExternalBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtBytes.st,v 1.21 1998-03-05 20:55:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtBytes.st,v 1.22 1998-03-05 21:40:07 cg Exp $'
 ! !
 ExternalBytes initialize!

--- a/ExternalBytes.st	Thu Mar 05 21:55:09 1998 +0100
+++ b/ExternalBytes.st	Thu Mar 05 22:40:07 1998 +0100
@@ -489,6 +489,9 @@
 #endif
     }
 %}
+    "
+     self dumpMallocChunks
+    "
 !
 
 freeAllMallocChunks
@@ -542,12 +545,18 @@
 %{  /* NOCONTEXT */
     RETURN ( __MKSMALLINT(mallocCount) );
 %}
+    "
+     self numberOfAllocatedChunks
+    "
 !
 
 mallocStatistics
 %{
     __stx_mallocStatistics();
 %}
+    "
+     self mallocStatistics
+    "
 ! !
 
 !ExternalBytes class methodsFor:'private instance creation/release'!
@@ -928,6 +937,6 @@
 !ExternalBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.21 1998-03-05 20:55:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.22 1998-03-05 21:40:07 cg Exp $'
 ! !
 ExternalBytes initialize!