diff options
| -rw-r--r-- | tcl_typemap.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tcl_typemap.c b/tcl_typemap.c index 5e1afea..864af24 100644 --- a/tcl_typemap.c +++ b/tcl_typemap.c @@ -142,7 +142,9 @@ int pdatom_to_tcl(t_atom *input, Tcl_Obj **output) { } case A_DOLLAR: { - tcl_t_atom[1] = Tcl_NewIntObj((int)input->a_w.w_index); + char dolbuf[8]; + snprintf(dolbuf, 8, "$%d", (int)input->a_w.w_index); + tcl_t_atom[1] = Tcl_NewStringObj(dolbuf, -1); break; } case A_SEMI: |