diff --git a/vpi/vhdl_textio.c b/vpi/vhdl_textio.c
index 7235d316c..3892ef5b7 100644
--- a/vpi/vhdl_textio.c
+++ b/vpi/vhdl_textio.c
@@ -861,11 +861,14 @@ static PLI_INT32 ivlh_write_calltf(ICARUS_VPI_CONST PLI_BYTE8*name)
                 break;
 
             case vpiDecConst:
-            case vpiBinaryConst:
             case vpiOctConst:
             case vpiHexConst:
                 type = vpiIntVar;
                 break;
+
+            case vpiBinaryConst:
+                type = vpiBitVar;
+                break;
         }
     }