diff --git a/libguile/vm.c b/libguile/vm.c
index 6bbf251f2..f7fac9559 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -856,36 +856,6 @@ SCM_DEFINE (scm_vm_p, "vm?", 1, 0, 0,
 }
 #undef FUNC_NAME
 
-SCM_DEFINE (scm_vm_ip, "vm:ip", 1, 0, 0,
-	    (SCM vm),
-	    "")
-#define FUNC_NAME s_scm_vm_ip
-{
-  SCM_VALIDATE_VM (1, vm);
-  return scm_from_unsigned_integer ((scm_t_bits) SCM_VM_DATA (vm)->ip);
-}
-#undef FUNC_NAME
-
-SCM_DEFINE (scm_vm_sp, "vm:sp", 1, 0, 0,
-	    (SCM vm),
-	    "")
-#define FUNC_NAME s_scm_vm_sp
-{
-  SCM_VALIDATE_VM (1, vm);
-  return scm_from_unsigned_integer ((scm_t_bits) SCM_VM_DATA (vm)->sp);
-}
-#undef FUNC_NAME
-
-SCM_DEFINE (scm_vm_fp, "vm:fp", 1, 0, 0,
-	    (SCM vm),
-	    "")
-#define FUNC_NAME s_scm_vm_fp
-{
-  SCM_VALIDATE_VM (1, vm);
-  return scm_from_unsigned_integer ((scm_t_bits) SCM_VM_DATA (vm)->fp);
-}
-#undef FUNC_NAME
-
 #define VM_DEFINE_HOOK(n)				\
 {							\
   struct scm_vm *vp;					\
diff --git a/libguile/vm.h b/libguile/vm.h
index e46176481..a71fd0f70 100644
--- a/libguile/vm.h
+++ b/libguile/vm.h
@@ -60,9 +60,6 @@ SCM_API SCM scm_the_vm (void);
 SCM_API SCM scm_call_with_vm (SCM vm, SCM proc, SCM args);
 
 SCM_API SCM scm_vm_p (SCM obj);
-SCM_API SCM scm_vm_ip (SCM vm);
-SCM_API SCM scm_vm_sp (SCM vm);
-SCM_API SCM scm_vm_fp (SCM vm);
 SCM_API SCM scm_vm_apply_hook (SCM vm);
 SCM_API SCM scm_vm_push_continuation_hook (SCM vm);
 SCM_API SCM scm_vm_pop_continuation_hook (SCM vm);
diff --git a/module/system/vm/vm.scm b/module/system/vm/vm.scm
index 8f830cc43..f459f0ae8 100644
--- a/module/system/vm/vm.scm
+++ b/module/system/vm/vm.scm
@@ -21,8 +21,6 @@
 (define-module (system vm vm)
   #:export (vm?
             the-vm call-with-vm
-            vm:ip vm:sp vm:fp
-
             vm-trace-level set-vm-trace-level!
             vm-engine set-vm-engine! set-default-vm-engine!
             vm-push-continuation-hook vm-pop-continuation-hook