Inconsistent behavior of `current-word'

[Emilio Lopes]

Start Emacs and type the following in the "*scratch*"
buffer:

        Diesel-Motor*

[The asterisk represents point position]

`current-word)' returns "Diesel-Motor" although all other
word-related commands (`backward-word', `capitalize-word'
etc.) I've tested return "Motor" only.

A look at the current syntax table shows that `-' is not a
word component:

        - .. /          _       which means: symbol


Emilio