diff --git a/Source/DOH/base.c b/Source/DOH/base.c
index 7e02832e8..ac1b33666 100644
--- a/Source/DOH/base.c
+++ b/Source/DOH/base.c
@@ -94,7 +94,7 @@ DohStr(const DOH *obj) {
     if (objinfo->doh_str) {
       return (objinfo->doh_str)(b);
     }
-    sprintf(buffer,"<Object '%s' at %x>", objinfo->objname, (unsigned int)b);
+    sprintf(buffer,"<Object '%s' at %p>", objinfo->objname, b);
     return NewString(buffer);
   } else {
     return NewString(obj);
diff --git a/Source/Modules/s-exp.cxx b/Source/Modules/s-exp.cxx
index 4377c23d4..f6b3ff6d9 100644
--- a/Source/Modules/s-exp.cxx
+++ b/Source/Modules/s-exp.cxx
@@ -187,7 +187,7 @@ public:
     // Following is a silly hack.  It works around the limitation of
     // DOH's hash tables that only work with string keys!
     char address[16];
-    sprintf(address, "%x%c", (unsigned int)obj, list_p ? 'L' : 'O');
+    sprintf(address, "%x%c", (unsigned long)obj, list_p ? 'L' : 'O');
     DOH *placeholder = Getattr(print_circle_hash, address);
     if (placeholder) {
       Printv(out, placeholder, NIL);