tcl in leo-ctx5, II

[Will Coleda]

Next big issue with tcl in leo-ctx5 seems to be PGE's glob (A quick  
check shows no tests for glob, which is probably why this fell  
through the cracks.) Below, find a short PIR snippet that  
demonstrates the problem. in trunk, it prints:

: <whee @ 0> 0
But in leo-ctx5, it prints:

src/nci.c:63: failed assertion `n < st->src.n'
Abort trap

-- PIR ---
.sub globber

$S1 = "wh*"
$S2 = "whee"

load_bytecode "library/PGE.pbc"
load_bytecode "library/PGE/Glob.pbc"

$P1 = find_global "PGE", "glob"

($P2, $P3, $P4) = $P1($S1)

$P5 = $P2($S2)

$P5.dump()

.end

-- TRACE --- (ends with:)
   580 i_concatenate P15, S15   - P15=String=PMC(0xea1708 Str:".sub  
_pge_rule\n    ."), S15=".end\n"
   584 set_returns PMC_C[5]
   586 returncc
  1707 set_returns PMC_C[5]
  1709 returncc
   745 compreg P15, "PIR"       - P15=Sub=PMC(0xe9f0e0 pc:438),
   748 set S15, P19     - S15="wh*", P19=String=PMC(0xea1708  
Str:".sub _pge_rule\n    .")
   751 compile P15, P15, S15    - P15=Compiler=PMC(0xea2290),  
P15=Compiler=PMC(0xea2290), S15=".sub _pge_rule\n    ."