Index: includes/token.inc
===================================================================
RCS file: /cvs/drupal/drupal/includes/token.inc,v
retrieving revision 1.7
diff -u -p -r1.7 token.inc
--- includes/token.inc	5 Dec 2009 03:49:17 -0000	1.7
+++ includes/token.inc	11 Jan 2010 22:13:50 -0000
@@ -78,6 +78,9 @@ function token_replace($text, array $dat
   $replacements = array();
   foreach (token_scan($text) as $type => $tokens) {
     $replacements += token_generate($type, $tokens, $data, $options);
+    if (!empty($options['clear'])) {
+      $replacements += array_fill_keys($tokens, '');
+    }
   }
 
   // Optionally alter the list of replacement values.