diff --git a/src/vmsrc/plvm.c b/src/vmsrc/plvm.c
index 7cc2848..9f161c5 100755
--- a/src/vmsrc/plvm.c
+++ b/src/vmsrc/plvm.c
@@ -509,6 +509,10 @@ void call(uword pc)
             mem_data[0x1FF] = i;
             PUSH(0x1FF);
             break;
+        case 10: // LIBRARY STDLIB::PUTH
+            i = UPOP;
+            printf("%04X", i);
+            break;
         case 24: // LIBRARY CMDSYS::DIVMOD
             a = POP;
             b = POP;