--- a/ObjectMemory.st	Wed Jan 23 10:08:55 2013 +0000
+++ b/ObjectMemory.st	Mon Jan 28 21:53:19 2013 +0000
@@ -918,6 +918,19 @@
 
 !ObjectMemory class methodsFor:'access debugging'!
 
+debugPrivacyChecks:aBoolean
+    "turn on/off checks for private methods being called.
+     By default, this is on in the ST/X IDE, but off for standAlone (packaged) endUser
+     applications. Method privacy is an experimental feature, which may be removed in later
+     versions, if it turns out to be not useful."
+
+%{  /* NOCONTEXT */
+    extern int __setPrivacyChecks__();
+
+    RETURN ( __setPrivacyChecks__( (aBoolean == true) ) ? true : false);
+%}
+!
+
 setTrapOnAccessFor:anObject
     "install an access trap for anObject;
      An accessSignal will be raised, whenever any instvar of anObject is either read or written.
@@ -3046,9 +3059,9 @@
      The default is zero."
 
 %{  /* NOCONTEXT */
-    extern unsigned __maxOldSpace();
-
-    RETURN (__MKUINT( __maxOldSpace((unsigned int)-1) ));
+    extern unsigned INT __maxOldSpace();
+
+    RETURN (__MKUINT( __maxOldSpace((unsigned INT)-1) ));
 %}.
     ^ 0
     "
@@ -3069,7 +3082,7 @@
 
     |result|
 %{
-    extern unsigned __maxOldSpace();
+    extern unsigned INT __maxOldSpace();
 
     if (__isInteger(amount)) {
 	result = __MKUINT( __maxOldSpace(__unsignedLongIntVal(amount)));
@@ -5501,7 +5514,7 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.264 2013-01-11 14:30:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.266 2013-01-26 21:42:14 cg Exp $'
 !
 
 version_SVN