Reverse Words in a string - "Potential answer to SO CodeGolf challenge"

reverse-words.reb

Rebol []

reverse-words: function [
    "Reverse the order of words. Modifies and returns string (series)"
    series [string!] "At position (modified)"
  ][    
    first-time: on 
    until [     
        f: any [
            if first-time [tail series]
            find series space
            tail series
        ]   
        reverse/part series f
        unless first-time [series: next f]
        first-time: off
        tail? series
    ]   
    
    head series
]