diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld
index b4acf459..a090fb46 100644
--- a/scheme/cyclone/primitives.sld
+++ b/scheme/cyclone/primitives.sld
@@ -465,7 +465,7 @@
            p 
           '(;cons
             Cyc-fast-list-1
-            Cyc-fast-list-2
+            ;Cyc-fast-list-2
             Cyc-fast-list-3
             Cyc-fast-list-4
             ;cell
@@ -484,7 +484,7 @@
           (cond
             ;((eq? p 'cons)            "alloca_pair")
             ((eq? p 'Cyc-fast-list-1) "alloca_list_1")
-            ((eq? p 'Cyc-fast-list-2) "alloca_list_2")
+            ;((eq? p 'Cyc-fast-list-2) "alloca_list_2")
             ((eq? p 'Cyc-fast-list-3) "alloca_list_3")
             ((eq? p 'Cyc-fast-list-4) "alloca_list_4")
             ;((eq? p 'cell)            "alloca_cell")
@@ -644,7 +644,8 @@
          ;((eq? p 'cons)          "make_pair")
          ((eq? p 'cons)          "set_pair_as_expr")
          ((eq? p 'Cyc-fast-list-1) "make_list_1")
-         ((eq? p 'Cyc-fast-list-2) "make_list_2")
+         ((eq? p 'Cyc-fast-list-2) "set_list_2_as_expr")
+         ;((eq? p 'Cyc-fast-list-2) "make_list_2")
          ((eq? p 'Cyc-fast-list-3) "make_list_3")
          ((eq? p 'Cyc-fast-list-4) "make_list_4")
          ;((eq? p 'cell)          "make_cell")
@@ -757,6 +758,7 @@
       (cond
         ((eq? p 'cons) "pair_type")
         ((eq? p 'cell) "pair_type")
+        ((eq? p 'Cyc-fast-list-2) "list_2_type")
         ((eq? p 'Cyc-fast-plus) "complex_num_type")
         ((eq? p 'Cyc-fast-sub) "complex_num_type")
         ((eq? p 'Cyc-fast-mul) "complex_num_type")
@@ -871,7 +873,7 @@
                  Cyc-read-line
                  Cyc-read-char Cyc-peek-char
                  Cyc-fast-list-1
-                 Cyc-fast-list-2
+                 ;Cyc-fast-list-2
                  Cyc-fast-list-3
                  Cyc-fast-list-4
                  ;cons