@@ -10,10 +10,10 @@ proc unknown {proname args} {
1010 # On first call prepare the plans
1111 #-----------------------------------------------------------
1212 if {![info exists p_mod]} {
13- set p_mod [SPI_prepare \
13+ set p_mod [spi_prepare \
1414"select modname from pltcl_modfuncs\
1515 where funcname = \$1" name]
16- set p_src [SPI_prepare \
16+ set p_src [spi_prepare \
1717"select modseq, modsrc from pltcl_modules\
1818 where modname = \$1\
1919 order by modseq" name]
@@ -22,7 +22,7 @@ proc unknown {proname args} {
2222 #-----------------------------------------------------------
2323 # Lookup the requested function in pltcl_modfuncs
2424 #-----------------------------------------------------------
25- set n [SPI_execp -count 1 $p_mod [list [quote $proname]]]
25+ set n [spi_execp -count 1 $p_mod [list [quote $proname]]]
2626 if {$n != 1} {
2727#-----------------------------------------------------------
2828# Not found there either - now it's really unknown
@@ -34,7 +34,7 @@ proc unknown {proname args} {
3434 # Collect the source pieces from pltcl_modules
3535 #-----------------------------------------------------------
3636 set src ""
37- SPI_execp $p_src [list [quote $modname]] {
37+ spi_execp $p_src [list [quote $modname]] {
3838 append src $modsrc
3939 }
4040
