diff --git a/build/misc.tcl b/build/misc.tcl
index 5f224436..6040bc59 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -1172,7 +1172,7 @@ respond "*" ":kill\r"
 # C compiler, parser.
 respond "*" ":c;occ c1.c c21.c c22.c c23.c c24.c c25.c c26.c\r"
 expect ":KILL"
-respond "*" ":c;occ c91.c c92.c c95.c\r"
+respond "*" ":c;occ c91.c c95.c\r"
 expect ":KILL"
 respond "*" ":stinkr lp\r"
 expect ":KILL"
@@ -1181,7 +1181,7 @@ respond "*" ":delete c; ts occ\r"
 # C compiler, code generator.
 respond "*" ":cc c31.c c32.c c33.c c34.c c35.c\r"
 expect ":KILL"
-respond "*" ":cc c94.c c95.c\r"
+respond "*" ":cc c95.c\r"
 expect ":KILL"
 respond "*" ":stinkr c\r"
 expect ":KILL"
diff --git a/src/c/c.stinkr b/src/c/c.stinkr
index f48fbe45..8e95d9ff 100644
--- a/src/c/c.stinkr
+++ b/src/c/c.stinkr
@@ -5,6 +5,5 @@ l c33.stk
 l c34.stk
 l c35.stk
 l c91.stk
-l c94.stk
 l c95.stk
 o _c.bin
diff --git a/src/c/lp.stinkr b/src/c/lp.stinkr
index a2a5e01e..b12cc161 100644
--- a/src/c/lp.stinkr
+++ b/src/c/lp.stinkr
@@ -7,6 +7,5 @@ l c24.stk
 l c25.stk
 l c26.stk
 l c91.stk
-l c92.stk
 l c95.stk
 o _lp.bin
diff --git a/src/c/m.stinkr b/src/c/m.stinkr
index 88be033f..7ccaf1c4 100644
--- a/src/c/m.stinkr
+++ b/src/c/m.stinkr
@@ -2,8 +2,6 @@ x c/clib
 l c41.stk
 l c42.stk
 l c43.stk
-l c92.stk
 l c93.stk
-l c94.stk
 l c95.stk
 o _m.bin
diff --git a/src/c/testc.c b/src/c/testc.c
index 569926b5..d9f166fe 100644
--- a/src/c/testc.c
+++ b/src/c/testc.c
@@ -439,46 +439,3 @@ tclass (x, y)	int x, y;
 	*p1 = 77;
 	if (y != 77) error (5500);
 	}
-
-/**********************************************************************
-
-	output routines
-
-**********************************************************************/
-
-cprint (fmt, x1, x2)	char fmt[], x1[], x2[];
-
-	{int *argp, x, c;
-	char *s;
-
-	argp = &x1;	/* argument pointer */
-	while (c = *fmt++)
-		{if (c != '%') putchar (c);
-		else
-			{x = *argp++;
-			switch (c = *fmt++) {
-
-		case 'd':	/* decimal */
-				if (x<0) {x= -x; putchar ('-');}
-				cprd (x);
-				break;
-
-		case 's':	/* string */
-				s = x;
-				while (c = *s++) putchar (c);
-				break;
-
-		default:	putchar (c);
-				argp--;
-				}
-			}
-		}
-	}
-
-cprd (n)
-
-	{int a;
-	if (a=n/10) cprd (a);
-	putchar (n%10+'0');
-	}
-