Erstatte tegn i streng i TCL

Hej med jer.

Jeg sidder og laver noget TCL i en Eggdrop, men nu er jeg så stødt på et lille problem:
Eggdrop\'en skal smide noget data ind i et MySQL table (via mytcl), men der kommer selvfølgelig en sql-fejl hvis strengen indeholder quotes (\'). Hvordan får jeg backslashet dem? Altså \' skal blive til \\\'.
Jeg har forsøgt mig med regsub, men det affødte en fejl (sikkert mig der var en spade :))
Kort fortalt, det jeg leder efter er en funktion som addslashes(); i php.