Fixing ticket 801

https://svnweb.cern.ch/trac/cactus/ticket/801