Curating the data sets behind Wolfram Alpha (and Mathematica) is a hugely labour-intensive endeavour. Mathematica itself depends on a large team of extremely well educated people; the pan-scientific domain expertise is significant in that company. Jeopardising that with a radical change of business model, like open sourcing Mathematica, would not be the choice of a sane businessman.
The system has to self sustain somehow.
If you want a similar system that is completely free and GPL, look at Maxima. It originates in DOE Macsyma and is Mathematica's direct predecessor. Since the company went bankrupt, the development went on at a glacial pace. Mathematicas commercial develompent model overtook it several times.
Specifically, I would be very surprised if small programs are not free for anyone to run, and if we don't offer some free tier (X minutes of kernel time a month).
Really, we have a strong interest in making WL ubiquitous for doing algorithmic and knowledge-based work. That does certainly mean opening it up more, though as some other people have pointed out, that is probably not going to take the form of open-sourcing the kernel [at least, not until we have different revenue streams in place].