strdist return values

[JamesBeard]

Sometimes strdist returns numbers very close to 1, when it should return 1. For example:
set obs 1
gen a = "abcde"
gen b = a
strdist a b, coss(x)
format x %20.18f
list , clean noobs
gives:
abcde abcde 1.000000000000000200

strdist returns its scores as doubles - Maybe it should really be returning singles (floats)? But the underlying cause of the problem is probably mixing singles and doubles somewhere in the depths of the code.