c/sctop.c の1561行目から始まる
#else
    interp = Tcl_CreateInterp();
    TkCreateMainWindow(interp, NULL, "raw_dtus", "Tk");
 
    if (Tcl_Init(interp) == TCL_ERROR) {
        fprintf(stderr, "Tcl_Init failed: %s\n", interp->result);
    }
    if (Tk_Init(interp) == TCL_ERROR) {
        fprintf(stderr, "Tk_Init failed: %s\n", interp->result);
    }
#endif

を

#else
    interp = Tcl_CreateInterp();
    //    TkCreateMainWindow(interp, NULL, "raw_dtus", "Tk");
 
    if (Tcl_Init(interp) == TCL_ERROR) {
        fprintf(stderr, "Tcl_Init failed: %s\n", interp->result);
    }
    if (Tk_Init(interp) == TCL_ERROR) {
        fprintf(stderr, "Tk_Init failed: %s\n", interp->result);
    }
    Tk_MainWindow(interp);
#endif

と修正下さい（TkCreateMainWindow()の行をコメントアウトし，Tk_MainWindow()を追加）．