Index: /trunk/source/lisp-kernel/gc-common.c
===================================================================
--- /trunk/source/lisp-kernel/gc-common.c	(revision 8369)
+++ /trunk/source/lisp-kernel/gc-common.c	(revision 8370)
@@ -704,25 +704,4 @@
 }
 
-weak_mark_fun dws_mark_weak_htabv = traditional_dws_mark_htabv;
-weak_mark_fun mark_weak_htabv = traditional_mark_weak_htabv;
-weak_process_fun markhtabvs = traditional_markhtabvs;
-
-void
-install_weak_mark_functions(int set) {
-  switch(set) {
-  case 0:
-  default:
-    dws_mark_weak_htabv = traditional_dws_mark_htabv;
-    mark_weak_htabv = traditional_mark_weak_htabv;
-    markhtabvs = traditional_markhtabvs;
-    break;
-  case 1:
-    dws_mark_weak_htabv = ncircle_dws_mark_htabv;
-    mark_weak_htabv = ncircle_mark_weak_htabv;
-    markhtabvs = ncircle_markhtabvs;
-    break;
-  }
-}
-
 void
 gc_init()
@@ -765,4 +744,26 @@
 
 #endif
+
+
+weak_mark_fun dws_mark_weak_htabv = traditional_dws_mark_htabv;
+weak_mark_fun mark_weak_htabv = traditional_mark_weak_htabv;
+weak_process_fun markhtabvs = traditional_markhtabvs;
+
+void
+install_weak_mark_functions(int set) {
+  switch(set) {
+  case 0:
+  default:
+    dws_mark_weak_htabv = traditional_dws_mark_htabv;
+    mark_weak_htabv = traditional_mark_weak_htabv;
+    markhtabvs = traditional_markhtabvs;
+    break;
+  case 1:
+    dws_mark_weak_htabv = ncircle_dws_mark_htabv;
+    mark_weak_htabv = ncircle_mark_weak_htabv;
+    markhtabvs = ncircle_markhtabvs;
+    break;
+  }
+}
 
 LispObj