--- a/src/gdbinit	Mon Aug 13 10:59:30 2007 +0200
+++ b/src/gdbinit	Mon Aug 13 11:00:12 2007 +0200
@@ -75,6 +75,10 @@
       set $imp = lrecord_implementations_table[$lheader->type]
     else
       set $imp = $lheader->implementation
+      if $imp->finalizer == this_marks_a_marked_record
+	set $imp = $imp -1
+	printf "marked lrecord:\n"
+      end
     end
   else
     set $imp = -1
@@ -320,7 +324,7 @@
     pstruct Lisp_Glyph
   else
   if $imp == lrecord_hashtable
-    pstruct Lisp_Hash_Table
+    pstruct hashtable
   else
   if $imp == lrecord_image_instance
     pstruct Lisp_Image_Instance
@@ -484,6 +488,8 @@
   pobj Vobarray
   printf "Vall_weak_lists: "
   pobj Vall_weak_lists
+  printf "Vall_weak_hashtables: "
+  pobj Vall_weak_hashtables
   printf "Vxemacs_codename: "
   pobj Vxemacs_codename
 end