diff --git a/src/iocsh/Makefile b/src/iocsh/Makefile
index f230acb21..ee58159c0 100644
--- a/src/iocsh/Makefile
+++ b/src/iocsh/Makefile
@@ -7,6 +7,7 @@ include $(TOP)/configure/CONFIG
 INC += ioccrf.h
 INC += dbTestRegister.h
 INC += dbCaTestRegister.h
+INC += caTestRegister.h
 INC += dbAccessRegister.h
 INC += ioccrfRegister.h
 
@@ -21,6 +22,7 @@ INC += ioccrfRegister.h
 LIBSRCS += ioccrf.c
 LIBSRCS += dbTestRegister
 LIBSRCS += dbCaTestRegister
+LIBSRCS += caTestRegister
 LIBSRCS += dbAccessRegister
 LIBSRCS += ioccrfRegister
 
diff --git a/src/iocsh/caTestRegister.c b/src/iocsh/caTestRegister.c
new file mode 100644
index 000000000..39c66d94e
--- /dev/null
+++ b/src/iocsh/caTestRegister.c
@@ -0,0 +1,33 @@
+/* caTestRegister.c */
+/* Author:  Marty Kraimer Date: 01MAY2000 */
+
+/********************COPYRIGHT NOTIFICATION**********************************
+This software was developed under a United States Government license
+described on the COPYRIGHT_UniversityOfChicago file included as part
+of this distribution.
+****************************************************************************/
+#include <stddef.h>
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <ctype.h>
+
+#include "ioccrf.h"
+#include "rsrv.h"
+#define epicsExportSharedSymbols
+#include "caTestRegister.h"
+
+/* casr */
+ioccrfArg casrArg0 = { "level",ioccrfArgInt,0};
+ioccrfArg *casrArgs[1] = {&casrArg0};
+ioccrfFuncDef casrFuncDef = {"casr",1,casrArgs};
+void casrCallFunc(ioccrfArg **args)
+{
+    casr(*(int *)args[0]->value);
+}
+
+
+void epicsShareAPI caTestRegister(void)
+{
+    ioccrfRegister(&casrFuncDef,casrCallFunc);
+}
diff --git a/src/iocsh/caTestRegister.h b/src/iocsh/caTestRegister.h
new file mode 100644
index 000000000..5e04cd605
--- /dev/null
+++ b/src/iocsh/caTestRegister.h
@@ -0,0 +1,25 @@
+/* caTestRegister.h */
+/* Author:  Marty Kraimer Date: 27APR2000 */
+
+/********************COPYRIGHT NOTIFICATION**********************************
+This software was developed under a United States Government license
+described on the COPYRIGHT_UniversityOfChicago file included as part
+of this distribution.
+****************************************************************************/
+
+#ifndef INCcaTestRegisterH
+#define INCcaTestRegisterH
+
+#include "shareLib.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+epicsShareFunc void epicsShareAPI caTestRegister(void);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /*INCcaTestRegisterH*/
diff --git a/src/iocsh/dbCaTestRegister.c b/src/iocsh/dbCaTestRegister.c
index a440c095e..bd1c0efd6 100644
--- a/src/iocsh/dbCaTestRegister.c
+++ b/src/iocsh/dbCaTestRegister.c
@@ -1,4 +1,4 @@
-/* dbCaTestRegister.h */
+/* dbCaTestRegister.c */
 /* Author:  Marty Kraimer Date: 01MAY2000 */
 
 /********************COPYRIGHT NOTIFICATION**********************************
@@ -24,7 +24,7 @@ ioccrfArg *dbcarArgs[2] = {&dbcarArg0,&dbcarArg1};
 ioccrfFuncDef dbcarFuncDef = {"dbcar",2,dbcarArgs};
 void dbcarCallFunc(ioccrfArg **args)
 {
-    dbcar((char *)args[0]->value,*(char *)args[1]->value);
+    dbcar((char *)args[0]->value,*(int *)args[1]->value);
 }
 
 
diff --git a/src/iocsh/dbTestRegister.c b/src/iocsh/dbTestRegister.c
index 47ce059be..51a8ad4b7 100644
--- a/src/iocsh/dbTestRegister.c
+++ b/src/iocsh/dbTestRegister.c
@@ -1,4 +1,4 @@
-/* dbTestRegister.h */
+/* dbTestRegister.c */
 /* Author:  Marty Kraimer Date: 26APR2000 */
 
 /********************COPYRIGHT NOTIFICATION**********************************