tsearch Parser Hacking

Hackers,

Is it possible to modify the default tsearch parser so that / doesn't get lexed as a "file" token? That is, instead of
this:

try=# select * from ts_debug('simple'::regconfig, 'w/d');alias │    description    │ token │ dictionaries │ dictionary
│lexemes  
───────┼───────────────────┼───────┼──────────────┼────────────┼─────────file  │ File or path name │ w/d   │ {simple}
 │ simple     │ {w/d} 

Ideally it'd think that / was the same as -:

try=# select * from ts_debug('simple'::regconfig, 'w-d');     alias      │           description           │ token │
dictionaries│ dictionary │ lexemes  
─────────────────┼─────────────────────────────────┼───────┼──────────────┼────────────┼─────────asciihword      │
Hyphenatedword, all ASCII      │ w-d   │ {simple}     │ simple     │ {w-d}hword_asciipart │ Hyphenated word part, all
ASCII│ w     │ {simple}     │ simple     │ {w}blank           │ Space symbols                   │ -     │ {}
│[null]     │ [null]hword_asciipart │ Hyphenated word part, all ASCII │ d     │ {simple}     │ simple     │ {d} 
(4 rows)

Possible? Or would I have to write a completely new parser just to change this bit?

Thanks,

David