[OpenBIOS] Concatenating strings

[Programmingkid]

Could someone provide me with a code example on how to combine two strings together in forth please. Here is my attempt. For some reason it doesn't work. Any help would be great.

\ (addr len -- )

: loadLocalVariable 
dup
9 +
dup
> r

alloc-mem
" variable "
rot  
dup
> r

swap   
move   
r>			
r>
+		
swap 
3dup  
move
9      
+
dup
> r

-   
r>   
eval
drop
;

All this code does this basically

sprintf(defineVariableCommandString, "variable %s", variableString);
feval(defineVariableCommandString);

Boy I love C.