--- a/src/.dbxrc	Mon Aug 13 11:32:27 2007 +0200
+++ b/src/.dbxrc	Mon Aug 13 11:33:38 2007 +0200
@@ -39,6 +39,8 @@
 # So we simulate the gdb algorithm by doing it ourselves here.
 if test -r $HOME/.dbxrc; then . $HOME/.dbxrc; fi
 
+dbxenv language_mode ansic
+
 ignore POLL
 ignore IO
 
@@ -64,7 +66,7 @@
 
 # A bug in dbx prevents string variables from having values beginning with `-'!!
 function XEmacsInit {
-  function ToInt { eval "$1=\$[(int) $1]"; }
+  function ToInt { eval "$1=\$[(int) \`alloc.c\`$1]"; }
   ToInt dbg_USE_UNION_TYPE
   ToInt Lisp_Type_Int
   ToInt Lisp_Type_Char
@@ -75,7 +77,7 @@
   ToInt Lisp_Type_Record
   ToInt dbg_valbits
   ToInt dbg_gctypebits
-  function ToLong { eval "$1=\$[(unsigned long) $1]"; }
+  function ToLong { eval "$1=\$[(\`alloc.c\`unsigned long) \`alloc.c\`$1]"; }
   ToLong dbg_valmask
   ToLong dbg_typemask
   xemacs_initted=yes
@@ -98,11 +100,11 @@
     # Repeat after me... dbx sux, dbx sux, dbx sux...
     # Allow both `pobj Qnil' and `pobj 0x82746834' to work
     case $(whatis $1) in
-      *Lisp_Object*) obj="$[(unsigned long)(($1).i)]";;
-      *) obj="$[(unsigned long)($1)]";;
+      *Lisp_Object*) obj="$[(`alloc.c`unsigned long)(($1).i)]";;
+      *) obj="$[(`alloc.c`unsigned long)($1)]";;
     esac
   else
-    obj="$[(unsigned long)($1)]";
+    obj="$[(`alloc.c`unsigned long)($1)]";
   fi
   if test $[(int)($obj & 1)] = 1; then
     # It's an int
@@ -121,7 +123,7 @@
 
   if test $type = $Lisp_Type_Record; then
     typeset lheader="((struct lrecord_header *) $val)"
-    imp=$[(void*)(lrecord_implementations_table[$lheader->type])]
+    imp=$[(void*)(`alloc.c`lrecord_implementations_table[$lheader->type])]
   else
     imp="0xdeadbeef"
   fi