fixing setf function