diff --git a/src/machine/dispatch.rs b/src/machine/dispatch.rs
index a8957528..6702cc4b 100644
--- a/src/machine/dispatch.rs
+++ b/src/machine/dispatch.rs
@@ -208,6 +208,7 @@ impl MachineState {
                 l
             }
             (HeapCellValueTag::Fixnum |
+             HeapCellValueTag::CutPoint |
              HeapCellValueTag::Char |
              HeapCellValueTag::F64) => {
                 c