diff --git a/cgen.scm b/cgen.scm
index 046de06c..d473463e 100644
--- a/cgen.scm
+++ b/cgen.scm
@@ -487,7 +487,7 @@
      ((eq? p 'cons)          "make_cons")
      ((eq? p 'cell)          "make_cell")
      ((eq? p 'cell-get)      "cell_get")
-     ((eq? p 'set-cell!)     "cell_set")
+     ((eq? p 'set-cell!)     "Cyc_set_car")
      ((eq? p 'set-global!)   "global_set")
      (else
        (error "unhandled primitive: " p))))
diff --git a/runtime.h b/runtime.h
index 0c12c974..057ad23c 100644
--- a/runtime.h
+++ b/runtime.h
@@ -20,10 +20,6 @@ static const object Cyc_EOF = &__EOF;
 static object cell_get(object cell){
     return car(cell);
 }
-static object cell_set(object cell, object value){
-    ((list) cell)->cons_car = value;
-    return cell;
-}
 
 #define global_set(glo,value) (glo=value)